object frmFinanceReportDefine: TfrmFinanceReportDefine
  Left = 500
  Top = 138
  Caption = 'frmFinanceReportDefine'
  ClientHeight = 513
  ClientWidth = 552
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 12
  object pnlSheetCst: TPanel
    Left = 0
    Top = 0
    Width = 552
    Height = 90
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      552
      90)
    object cxLabel3: TcxLabel
      Left = 13
      Top = 45
      Caption = #21517#31216#65306
      Transparent = True
    end
    object edtName: TcxDBTextEdit
      Left = 54
      Top = 43
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'name'
      DataBinding.DataSource = dsSheetCst
      TabOrder = 1
      Width = 379
    end
    object btnCstAdd: TcxButton
      Left = 461
      Top = 13
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #26032#22686
      TabOrder = 2
      OnClick = btnCstAddClick
    end
    object btnPriorMC: TcxButton
      Left = 53
      Top = 12
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #19978#19968#20010
      TabOrder = 3
      OnClick = btnPriorMCClick
    end
    object btnNextMC: TcxButton
      Left = 141
      Top = 12
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #19979#19968#20010
      TabOrder = 4
      OnClick = btnNextMCClick
    end
    object btnDeleteCst: TcxButton
      Left = 461
      Top = 52
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #21024#38500
      TabOrder = 5
      OnClick = btnDeleteCstClick
    end
    object edtLeftName: TcxDBTextEdit
      Left = 54
      Top = 70
      DataBinding.DataField = 'leftname'
      DataBinding.DataSource = dsSheetCst
      TabOrder = 6
      Width = 121
    end
    object cxLabel1: TcxLabel
      Left = 16
      Top = 72
      Caption = #24038#26639#65306
      Transparent = True
    end
    object cxLabel2: TcxLabel
      Left = 233
      Top = 72
      Caption = #21491#26639#65306
      Transparent = True
    end
    object edtRightName: TcxDBTextEdit
      Left = 274
      Top = 70
      Hint = #28165#31354#26639#30446#21517#31216#21363#21487#19981#26174#31034#26412#26639
      DataBinding.DataField = 'rightname'
      DataBinding.DataSource = dsSheetCst
      TabOrder = 9
      Width = 121
    end
    object btnBackup: TcxButton
      Left = 283
      Top = 12
      Width = 50
      Height = 25
      Caption = #22791#20221
      TabOrder = 10
      OnClick = btnBackupClick
    end
    object btnRestore: TcxButton
      Left = 344
      Top = 12
      Width = 50
      Height = 25
      Caption = #24674#22797
      TabOrder = 11
      OnClick = btnRestoreClick
    end
  end
  object pnlDefine: TPanel
    Left = 0
    Top = 90
    Width = 552
    Height = 423
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      552
      423)
    object tabDefine: TcxTabControl
      Left = 12
      Top = 9
      Width = 423
      Height = 396
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 0
      Properties.CustomButtons.Buttons = <>
      OnChange = tabDefineChange
      ClientRectBottom = 396
      ClientRectRight = 423
      ClientRectTop = 0
      object grdDefine: TcxGrid
        Left = 0
        Top = 0
        Width = 423
        Height = 268
        Align = alClient
        TabOrder = 0
        object viewDefine: TcxGridDBTableView
          Navigator.Buttons.CustomButtons = <>
          OnCellDblClick = viewDefineCellDblClick
          DataController.DataModeController.GridMode = True
          DataController.DataSource = dsDefine
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsData.Deleting = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsSelection.CellSelect = False
          OptionsView.ColumnAutoWidth = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          OptionsView.IndicatorWidth = 25
          Styles.Background = MainDM.bslBackGroup
          Styles.ContentEven = MainDM.bsEven
          Styles.ContentOdd = MainDM.bsOdd
          Styles.Selection = MainDM.bsSelect
          Styles.Header = MainDM.bsTitle
          Styles.Indicator = MainDM.bslBackGroup
          OnCustomDrawIndicatorCell = viewDefineCustomDrawIndicatorCell
          object viewDefinename: TcxGridDBColumn
            Caption = #39033#30446#21517#31216
            DataBinding.FieldName = 'name'
            Width = 200
          end
          object viewDefineCalckind: TcxGridDBColumn
            Caption = #25968#25454#26469#28304#26041#24335
            DataBinding.FieldName = 'calckind'
            Width = 100
          end
        end
        object lvlDefine: TcxGridLevel
          GridView = viewDefine
        end
      end
      object grdDefData: TcxGrid
        Left = 0
        Top = 276
        Width = 423
        Height = 120
        Align = alBottom
        TabOrder = 1
        object viewDefData: TcxGridDBTableView
          Navigator.Buttons.CustomButtons = <>
          DataController.DataModeController.GridMode = True
          DataController.DataSource = dsSheetDtl
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.ColumnAutoWidth = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          OptionsView.IndicatorWidth = 25
          Styles.Background = MainDM.bslBackGroup
          Styles.ContentEven = MainDM.bsEven
          Styles.ContentOdd = MainDM.bsOdd
          Styles.Selection = MainDM.bsSelect
          Styles.Header = MainDM.bsTitle
          Styles.Indicator = MainDM.bslBackGroup
          OnCustomDrawIndicatorCell = viewDefineCustomDrawIndicatorCell
          object viewDefDatacashflowid: TcxGridDBColumn
            Caption = #29616#37329#27969#37327
            DataBinding.FieldName = 'cashflowid'
            Visible = False
            Width = 80
          end
          object viewDefDatasubid: TcxGridDBColumn
            Caption = #31185#30446#21517#31216
            DataBinding.FieldName = 'subid'
            Options.Editing = False
            Width = 80
          end
          object viewDefDatasequno: TcxGridDBColumn
            Caption = #39033#30446#21517#31216
            DataBinding.FieldName = 'sequno'
            Width = 80
          end
          object viewDefDataZjTag: TcxGridDBColumn
            Caption = #35745#31639#26041#24335
            DataBinding.FieldName = 'ZjTag'
            PropertiesClassName = 'TcxComboBoxProperties'
            Properties.Items.Strings = (
              #21152
              #20943)
            Width = 40
          end
          object viewDefDataDctag: TcxGridDBColumn
            Caption = #21462#25968#26041#24335
            DataBinding.FieldName = 'Dctag'
            PropertiesClassName = 'TcxComboBoxProperties'
            Properties.Items.Strings = (
              #20313#39069
              #20511#26041#20313#39069
              #36151#26041#20313#39069)
            Width = 50
          end
        end
        object lvlDefData: TcxGridLevel
          GridView = viewDefData
        end
      end
      object sptItem: TcxSplitter
        Left = 0
        Top = 268
        Width = 423
        Height = 8
        HotZoneClassName = 'TcxXPTaskBarStyle'
        AlignSplitter = salBottom
        Control = grdDefData
      end
    end
    object btnPrior: TcxButton
      Left = 461
      Top = 148
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #19978#31227
      TabOrder = 1
      OnClick = btnPriorClick
    end
    object btnAppend: TcxButton
      Left = 461
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #26032#22686
      TabOrder = 2
      OnClick = btnAppendClick
    end
    object btnCancel: TcxButton
      Left = 461
      Top = 380
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 3
    end
    object btnNext: TcxButton
      Left = 461
      Top = 177
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #19979#31227
      TabOrder = 4
      OnClick = btnNextClick
    end
    object btnDelete: TcxButton
      Left = 461
      Top = 106
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #21024#38500
      TabOrder = 5
      OnClick = btnDeleteClick
    end
    object btnModify: TcxButton
      Left = 461
      Top = 73
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20462#25913
      TabOrder = 6
      OnClick = btnModifyClick
    end
    object btnInsert: TcxButton
      Left = 461
      Top = 41
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #25554#20837
      TabOrder = 7
      OnClick = btnInsertClick
    end
    object btnOK: TcxButton
      Left = 461
      Top = 347
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #30830#23450
      ModalResult = 1
      TabOrder = 8
      OnClick = btnOKClick
    end
    object btnBackupSys: TcxButton
      Left = 461
      Top = 218
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #22791#20221
      TabOrder = 9
      OnClick = btnBackupSysClick
    end
    object btnRestoreSys: TcxButton
      Left = 461
      Top = 246
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #24674#22797
      TabOrder = 10
      OnClick = btnRestoreSysClick
    end
  end
  object dsDefine: TDataSource
    DataSet = qryDefine
    Left = 200
    Top = 176
  end
  object qryDefine: TUniQuery
    SQLInsert.Strings = (
      'Insert into TFD_SHEET(KeyID,'
      'RptTypeID,'
      'Name,'
      'SequNo,'
      'OrderNo,'
      'RowNo,'
      'LRTag,'
      'CalcKind,'
      'FixValue'
      ')'
      'Values'
      '(:KeyID,'
      ':RptTypeID,'
      ':Name,'
      ':SequNo,'
      ':OrderNo,'
      ':RowNo,'
      ':LRTag,'
      ':CalcKind,'
      ':FixValue)')
    SQLDelete.Strings = (
      'delete tfd_sheetdtl where keyid=:keyid'
      'delete tfd_sheet where keyid=:keyid')
    SQLUpdate.Strings = (
      'Update TFD_SHEET set '
      'KeyID=:KeyID,'
      'RptTypeID=:RptTypeID,'
      'Name=:Name,'
      'SequNo=:SequNo,'
      'OrderNo=:OrderNo,'
      'RowNo=:RowNo,'
      'LRTag=:LRTag,'
      'CalcKind=:CalcKind,'
      'FixValue=:FixValue'
      ' where KeyID=:OLD_KeyID')
    Connection = MainDM.UniConn
    CachedUpdates = True
    Options.QueryRecCount = True
    AfterScroll = qryDefineAfterScroll
    Left = 124
    Top = 132
  end
  object qrySheetCst: TUniQuery
    SQLInsert.Strings = (
      
        'insert into tfd_sheetcst (rpttypeid,name,leftname,rightname) val' +
        'ues (:rpttypeid,:name,:leftname,:rightname)')
    SQLDelete.Strings = (
      'delete tfd_sheetdtl where rpttypeid=:old_rpttypeid')
    SQLUpdate.Strings = (
      
        'update tfd_sheetcst set name=:name,leftname=:leftname,rightname=' +
        ':rightname where rpttypeid=:rpttypeid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from tfd_sheetcst')
    CachedUpdates = True
    BeforePost = qrySheetCstBeforePost
    AfterScroll = qrySheetCstAfterScroll
    OnNewRecord = qrySheetCstNewRecord
    Left = 160
    Top = 40
  end
  object dsSheetCst: TDataSource
    DataSet = qrySheetCst
    Left = 216
    Top = 64
  end
  object cdsBackup: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBackup'
    Left = 272
    Top = 65532
  end
  object qryBackup: TUniQuery
    Connection = MainDM.UniConn
    Options.SetFieldsReadOnly = False
    Left = 200
    Top = 65528
  end
  object dspBackup: TDataSetProvider
    DataSet = qryBackup
    Left = 236
    Top = 12
  end
  object dsSheetDtl: TDataSource
    DataSet = qrySheetDtl
    Left = 132
    Top = 252
  end
  object qrySheetDtl: TUniQuery
    SQLInsert.Strings = (
      'Insert into TFD_SHEETDTL(KeyID,'
      'SecID,'
      'YMTag,'
      'ZJTag,'
      'FDTypeID,'
      'SubID,'
      'SubCode,'
      'SequNo,'
      'FixValue,'
      'CashFlowID,'
      'IOTag,'
      'DCTag'
      ')'
      'Values'
      '(:KeyID,'
      ':SecID,'
      ':YMTag,'
      ':ZJTag,'
      ':FDTypeID,'
      ':SubID,'
      ':SubCode,'
      ':SequNo,'
      ':FixValue,'
      ':CashFlowID,'
      ':IOTag,'
      ':DCTag)')
    SQLDelete.Strings = (
      
        'Delete from TFD_SHEETDTL where KeyID=:OLD_KeyID and SecID=:OLD_S' +
        'ecID')
    SQLUpdate.Strings = (
      'Update TFD_SHEETDTL set '
      'KeyID=:KeyID,'
      'SecID=:SecID,'
      'YMTag=:YMTag,'
      'ZJTag=:ZJTag,'
      'FDTypeID=:FDTypeID,'
      'SubID=:SubID,'
      'SubCode=:SubCode,'
      'SequNo=:SequNo,'
      'FixValue=:FixValue,'
      'CashFlowID=:CashFlowID,'
      'IOTag=:IOTag,'
      'DCTag=:DCTag'
      ' where KeyID=:OLD_KeyID and SecID=:OLD_SecID')
    Connection = MainDM.UniConn
    CachedUpdates = True
    Options.QueryRecCount = True
    IndexFieldNames = 'secid'
    Left = 52
    Top = 228
  end
end
